home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / mdmcomm1 / ansi.inc < prev    next >
Text File  |  1991-11-27  |  1KB  |  26 lines
  1. Const
  2.     AnsiBlack      = Chr(27)+'[0;30m';
  3.     AnsiRed        = Chr(27)+'[0;31m';
  4.     AnsiGreen      = Chr(27)+'[0;32m';
  5.     AnsiBrown      = Chr(27)+'[0;33m';
  6.     AnsiBlue       = Chr(27)+'[0;34m';
  7.     AnsiMagenta    = Chr(27)+'[0;35m';
  8.     AnsiCyan       = Chr(27)+'[0;36m';
  9.     AnsiWhite      = Chr(27)+'[0;37m';
  10.     AnsiBBlack     = Chr(27)+'[0;1;30m';
  11.     AnsiBRed       = Chr(27)+'[0;1;31m';
  12.     AnsiBGreen     = Chr(27)+'[0;1;32m';
  13.     AnsiYellow     = Chr(27)+'[0;1;33m';
  14.     AnsiBBlue      = Chr(27)+'[0;1;34m';
  15.     AnsiBMagenta   = Chr(27)+'[0;1;35m';
  16.     AnsiBCyan      = Chr(27)+'[0;1;36m';
  17.     AnsiBWhite     = Chr(27)+'[0;1;37m';
  18.     AnsiClrScr     = Chr(27)+'[2J';           { Clear screen }
  19.     AnsiHome       = Chr(27)+'[1;1H';         { Home to top }
  20.     AnsiClrEnd     = Chr(27)+'[0K';           { Clear to end of line }
  21.     AnsiUp         = Chr(27)+'[A';            { Move Cursor up }
  22.     AnsiDown       = Chr(27)+'[B';            { down }
  23.     AnsiRight      = Chr(27)+'[C';            { right }
  24.     AnsiLeft       = Chr(27)+'[D';            { and left }
  25.  
  26.